home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd604 / high scores / high scores.amosSourceCode
AMOS Source Code  |  1986-08-03  |  1KB  |  93 lines
  1. Set Buffer 10
  2. Close Editor 
  3. Hide On 
  4. Cls 0
  5. Pen 2 : Paper 0
  6. Input "JORDAN: ENTER YOUR NAME? ";A$
  7. Input "SHAQ: ENTER YOUR NAME? ";B$
  8. Curs Off 
  9. Dim N(6)
  10. Dim N$(6)
  11. X=0 : O=0 : B=0
  12. Open In 1,"HIGH SCORES.Seq"
  13. 1 Input #1,N
  14. G=Peek(417+X)
  15. H=Peek(424+X)
  16. If G>N and H=1 Then N$(X)=A$
  17. If G>N and H=2 Then N$(X)=B$
  18. If G>N Then N=G
  19. N(X)=N
  20. B=B+1
  21. If B=7 Then Goto 2
  22. X=X+1
  23. Goto 1
  24. 2 Close 1
  25. B=0 : X=0
  26. Open In 1,"NAMES.Seq"
  27. 11 Input #1,N$
  28. O=0
  29. If N$(X)<>A$ Then O=100
  30. If N$(X)<>B$ and O=100 Then N$(X)=N$
  31. B=B+1
  32. If B=7 Then Goto 12
  33. X=X+1
  34. Goto 11
  35. 12 Close 1
  36. Kill "HIGH SCORES.Seq"
  37. Open Out 1,"HIGH SCORES.Seq"
  38. B=0 : X=0
  39. 3 N=N(X)
  40. Print #1,N
  41. B=B+1
  42. If B=7 Then Goto 4
  43. X=X+1
  44. Goto 3
  45. 4 Close 1
  46. Kill "NAMES.Seq"
  47. Open Out 1,"NAMES.Seq"
  48. B=0 : X=0
  49. 13 N$=N$(X)
  50. Print #1,N$
  51. B=B+1
  52. If B=7 Then Goto 14
  53. X=X+1
  54. Goto 13
  55. 14 Close 1
  56. Cls 0
  57. B=0
  58. Pen 0 : Paper 0
  59. Print " ";
  60. Pen 3 : Paper 0
  61. Locate 0,0 : Centre "HIGH SCORES"
  62. Pen 5
  63. Locate 1,3 : Print "REBOUNDS:"
  64. Locate 1,6 : Print "BLOCKS:"
  65. Locate 1,9 : Print "FG MADE:"
  66. Locate 1,12 : Print "FG PERCENT:"
  67. Locate 1,15 : Print "3PT MADE:"
  68. Locate 1,18 : Print "3PT PERCENT:"
  69. Locate 1,21 : Print "VICTORY MARGIN:"
  70. Pen 2
  71. Open In 1,"HIGH SCORES.Seq"
  72. XX=18
  73. YY=3
  74. 5 Input #1,N
  75. Locate XX,YY : Print N
  76. B=B+1
  77. If B=7 Then Goto 6
  78. YY=YY+3
  79. Goto 5
  80. 6 Close 1
  81. B=0
  82. Open In 1,"NAMES.Seq"
  83. XX=24
  84. YY=3
  85. 15 Input #1,N$
  86. Locate XX,YY : Print N$
  87. B=B+1
  88. If B=7 Then Goto 16
  89. YY=YY+3
  90. Goto 15
  91. 16 Close 1
  92. Wait Key 
  93. Run "JORDAN VS SHAQ-- ONE-ON-ONE:JORDAN VS SHAQ.AMOS"